home *** CD-ROM | disk | FTP | other *** search
/ CPM Magazine / CPM MAG #02.DSK / UHRINFO.txt < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.0 KB  |  69 lines
  1.        A.U.G.E.- Uhr unter CP/M
  2.  
  3. --------------------------------------
  4.  
  5. H. M. Ihme                      M 3055
  6.  
  7.  
  8.  
  9. Die  drei  Programmteile,  in  Fortran 
  10.  
  11. unter CP/M geschrieben, sollen zeigen, 
  12.  
  13. wie man die A.U.G.E.-Uhr bedient.  Die 
  14.  
  15. Function  UHRIN  dient zur  Bestimmung 
  16.  
  17. der Slotnummer und braucht nur  einmal 
  18.  
  19. im  Hauptprogramm verwendet zu werden. 
  20.  
  21. Sie  liefert als Integer die  Slotnum
  22.  
  23. mer,  wenn diese =0 ist,  dann gibt es 
  24.  
  25. keine Uhr.
  26.  
  27. Die  Subroutine UHRLES  wird  jedesmal 
  28.  
  29. aufgerufen, wenn man Datum und aktuel
  30.  
  31. le Uhrzeit haben will.  Die Slotnummer 
  32.  
  33. mu~ mit }bergeben werden.
  34.  
  35. Das  Hauptprogramm UHRTST  zeigt,  wie 
  36.  
  37. man  die  aus UHRLES erhaltenen  Daten 
  38.  
  39. verwendet,  damit man eine vern}nftige 
  40.  
  41. Anzeige  bekommt.   WRITE(3,2000)  mit 
  42.  
  43. FORMAT('+')  ist  aus   unerfindlichen 
  44.  
  45. Gr}nden n|tig, weil das IPEEK von For
  46.  
  47. tran sonst falsche Werte liefert.  Wer 
  48.  
  49. will,  kann es weglassen und wird sein 
  50.  
  51. blaues Wunder erleben,  jedenfalls auf 
  52.  
  53. dem  Basis.  Die Programme werden  mit 
  54.  
  55. F80  =Programmname compiliert und  mit 
  56.  
  57. L80 UHRTST,UHRLES,UHRIN,UHRTST/N/E zu
  58.  
  59. sammengelinkt.  Sie  laufen auch unter 
  60.  
  61. CP/M 3.0.
  62.  
  63. Demn{chst folgt noch ein Beispiel, wie 
  64.  
  65. man die A.U.G.E.-Uhr in Z80-Assembler-
  66.  
  67. Programme einbindet.
  68.  
  69. eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee